home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / WRDGME.ARC / GEOW4 (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  3.1 KB  |  49 lines
  1. GeoWTimer
  2. PRG formatted GEOS file V1.0
  3. NX1000
  4. GeoWordsMai
  5. BLASTER'S CONVERTER V2.5
  6. J!GeoWShake
  7. GeoWTiles
  8. Write Image V2.1
  9. geoWrite    V2.1
  10.     .if    Pass1        
  11.     .noeqin
  12.     .noglbl                
  13.     .include    geosSym    
  14.     .include    geosMac    
  15.     .include    GeoWEquates
  16.     .include    GeoWZips
  17.     .glbl
  18.     .eqin    
  19.     .endif
  20.     .psect
  21.     DispTimr:
  22.         LoadB    dispBuff,#ST_WR
  23.     DispTimr:
  24.         LoadB    dispBuff,#ST_WR_BA
  25.         jsr    i_Graphi
  26.         .byte    MOVEPENT
  27.         .word    SBOXPXLF + 8 
  28.         .byte    SCOREBXT + 8
  29.         .byte    NEWPATTE,1
  30.         .byte    RECTANGL
  31.         .word    SBOXPXLF + 8 + (TimerWi * 8)
  32.         .byte    SCOREBXT + 7 + TimerHi
  33.         .byte    NULL
  34.         jsr    i_Bitmap
  35.         .word    TimerPic
  36.         .byte    SCOREBXL
  37.         .byte    SCOREBXT
  38.         .byte    TimerWi
  39.         .byte    TimerHi 
  40.         rts
  41.     TimerPic:
  42.     TimerWi == picW
  43.     TimerHi == picH 
  44.     TIMERENDS:
  45.     TimerPic:
  46.     TimerWi == picW
  47.     TimerHi == picH 
  48.     TIMERENDS:
  49.